﻿namespace FSpec.Runner.Model

open System
open Gallio.Model
open ModelHelper
open Gallio.Common.Reflection 
open System.Linq
open ModelHelper
open FSpec.Runner

type Concern(name:String, codeElement) as this =
    inherit Tree.Test(name.Split([|'.'|]).Last(), codeElement) with
        do
            codeElement |> insertXmlDocsInto this
        
            this.Kind <- "Concern"
            this.IsTestCase <- false
            this.Metadata.SetValue(MetadataKeys.Framework, StringResources.FrameWorkName)
            this.Metadata.SetValue(MetadataKeys.Category, "Concerns")
            

